home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_11_(11-1984).d64 / geo pattern (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  361b  |  19 lines
  1. 1 REM STAR DEMO
  2. 10 PI=2*(null)
  3. 20 INPUT"[147] POINTS WANTED (O TO END)";PW
  4. 21 IF PW=0THEN END
  5. 22 INPUT"SKIP";SK
  6. 23 INPUT"RADIUS <100 ";R
  7. 30 P=PI/PW
  8. 50 STOPBMGR1:STOPCB2K4:STOPFBMS0:STOPFSCR1
  9. 60 X=160:Y=100-R:TL=0
  10. 70 FORJ=1TOPW
  11. 80 TH=TL+SK
  12. 90 TL=TH:TH=TH*P-(PI/4)
  13. 100 X2=COS(TH)*R+160
  14. 110 Y2=SIN(TH)*R+100
  15. 120 STOPDRAWX,Y,X2,Y2
  16. 130 X=INT(X2):Y=INT(Y2):NEXT
  17. 140 GETA$:IFA$=""THEN140
  18. 150 STOPBMGR0:STOPCB2K2:PRINT"[147]":GOTO20
  19.